home *** CD-ROM | disk | FTP | other *** search
/ Crack It! / Crack It!.iso / CONTENT / JSTEST / JST300D.EXE / PUTCHAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1996-09-09  |  1.1 KB  |  61 lines
  1. ;***
  2. ;
  3. ;PUTCHAR.ASM - a simple routine to quickly plot a character on screen.
  4. ;              Output is raw, i.e. no control character processing is done.
  5. ;(C)Copyright Gerard Paul Java 1996
  6. ;
  7. ;***
  8.  
  9. .MODEL TPASCAL
  10.  
  11. .DATA
  12.  
  13. EXTRN           TextAttr: BYTE
  14. EXTRN           CheckSnow: BYTE
  15.  
  16. .CODE
  17.  
  18. PUBLIC          PutChar
  19.  
  20. PutChar         PROC    FAR     X: BYTE,Y: BYTE, Character: BYTE
  21.         XOR     AH,AH
  22.         MOV     AL,160
  23.         MOV     DH,Y
  24.         MOV     DL,X
  25.         ADD     DH,3
  26.         ADD     DL,2
  27.         MUL     DH
  28.         XOR     DH,DH
  29.         ADD     AX,DX
  30.         ADD     AX,DX
  31.         MOV     DI,AX
  32.         MOV     AH,0FH
  33.         INT     10H
  34.         CMP     AL,7
  35.         JE      MONO
  36.         MOV     AX,0B800H
  37.         JMP     MOVCHAR
  38. MONO:           MOV     CheckSnow,0
  39.         MOV     AX,0B000H
  40. MOVCHAR:        MOV     ES,AX
  41.         MOV     AL,Character
  42.         MOV     AH,TextAttr
  43.         CMP     CheckSnow,1
  44.         JNE     STORECHAR
  45.         MOV     BX,AX
  46.         MOV     DX,3DAH
  47. WAIT1:          IN      AL,DX
  48.         RCR     AL,1
  49.         JC      WAIT1
  50.         CLI
  51. WAIT2:          IN      AL,DX
  52.         RCR     AL,1
  53.         JNC     WAIT2
  54.         MOV     AX,BX
  55. STORECHAR:      STOSW
  56.         RET
  57. PutChar         ENDP
  58.  
  59.         END
  60.  
  61.